home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Best of www.BestZips.com (Collector's Edition)
/
Best of WWW.BESTZIPS.COM Collector's Edition (JCSM Shareware) (JCS Marketing).ISO
/
hobbies_
/
32psst10.zip
/
_SETUP.1
/
STO32S.EXE
/
0
/
RCDATA
/
TORDERFORM
/
TORDERFORM.txt
Wrap
Text File
|
1996-09-30
|
13KB
|
573 lines
object OrderForm: TOrderForm
Left = -1
Top = 1
ActiveControl = NameEd
BorderStyle = bsDialog
Caption = 'Order Form'
ClientHeight = 414
ClientWidth = 580
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
Position = poScreenCenter
ShowHint = True
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Bevel1: TBevel
Left = 8
Top = 8
Width = 401
Height = 369
Shape = bsFrame
IsControl = True
end
object Label1: TLabel
Left = 16
Top = 13
Width = 385
Height = 41
Caption =
'Please, take your time and fill in as much information as possib' +
'le so that we can serve you better. If you need more information' +
' click on Help button.'
WordWrap = True
end
object Bevel3: TBevel
Left = 416
Top = 13
Width = 161
Height = 364
Shape = bsFrame
end
object Label16: TLabel
Left = 416
Top = 0
Width = 101
Height = 13
Caption = 'Price Calculation:'
end
object Label17: TLabel
Left = 424
Top = 201
Width = 34
Height = 13
Caption = 'Price:'
end
object Label18: TLabel
Left = 424
Top = 301
Width = 34
Height = 13
Caption = 'Total:'
end
object Label19: TLabel
Left = 536
Top = 201
Width = 18
Height = 13
Caption = 'US'
end
object Label20: TLabel
Left = 536
Top = 301
Width = 23
Height = 13
Caption = 'Cdn'
end
object Label22: TLabel
Left = 424
Top = 156
Width = 101
Height = 13
Caption = 'Number Of Users:'
end
object Label21: TLabel
Left = 424
Top = 223
Width = 119
Height = 13
Caption = 'Shipping && Handling:'
end
object Label23: TLabel
Left = 536
Top = 241
Width = 18
Height = 13
Caption = 'US'
end
object Bevel4: TBevel
Left = 417
Top = 324
Width = 159
Height = 9
Shape = bsTopLine
Visible = False
end
object Label24: TLabel
Left = 424
Top = 275
Width = 34
Height = 13
Caption = 'Total:'
end
object Label25: TLabel
Left = 536
Top = 275
Width = 18
Height = 13
Caption = 'US'
end
object Bevel5: TBevel
Left = 417
Top = 263
Width = 159
Height = 9
Shape = bsTopLine
end
object Label26: TLabel
Left = 424
Top = 355
Width = 34
Height = 13
Caption = 'Total:'
Visible = False
end
object Label27: TLabel
Left = 536
Top = 355
Width = 23
Height = 13
Caption = 'Cdn'
Visible = False
end
object OKBtn: TBitBtn
Left = 500
Top = 384
Width = 77
Height = 27
Hint = 'Close Order Form'
Caption = '&Close'
TabOrder = 14
Kind = bkOK
Margin = 2
Spacing = -1
IsControl = True
end
object HelpBtn: TBitBtn
Left = 420
Top = 384
Width = 77
Height = 27
Hint = 'Display Help Window'
TabOrder = 13
Kind = bkHelp
Margin = 2
Spacing = -1
IsControl = True
end
object BitBtn1: TBitBtn
Left = 259
Top = 384
Width = 77
Height = 27
Hint = 'Print This Order Form On Default Windows Printer'
Caption = '&Print'
TabOrder = 11
OnClick = BitBtn1Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
33333337FFFF7733333333300000033333333337777773333333}
Margin = 2
NumGlyphs = 2
Spacing = -1
IsControl = True
end
object Panel1: TPanel
Left = 16
Top = 56
Width = 385
Height = 313
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 0
object Label2: TLabel
Left = 8
Top = 10
Width = 57
Height = 13
Alignment = taRightJustify
AutoSize = False
Caption = 'Name:'
end
object Label3: TLabel
Left = 4
Top = 33
Width = 61
Height = 13
Alignment = taRightJustify
Caption = 'Address 1:'
end
object Label8: TLabel
Left = 3
Top = 118
Width = 77
Height = 13
Caption = 'Telephone #:'
end
object Label9: TLabel
Left = 107
Top = 118
Width = 89
Height = 13
Caption = 'E-Mail Address:'
end
object Label10: TLabel
Left = 235
Top = 118
Width = 112
Height = 13
Caption = 'Source Of Program:'
end
object Label11: TLabel
Left = 8
Top = 154
Width = 160
Height = 13
Caption = 'Comments and Suggestions:'
end
object Bevel2: TBevel
Left = 1
Top = 227
Width = 382
Height = 2
Shape = bsBottomLine
end
object Label12: TLabel
Left = 8
Top = 257
Width = 152
Height = 13
Caption = 'If Payment by VISA CARD:'
end
object Label13: TLabel
Left = 16
Top = 271
Width = 78
Height = 13
Caption = 'Card Number:'
end
object Label14: TLabel
Left = 208
Top = 271
Width = 92
Height = 13
Caption = 'Expiration Date:'
end
object Label15: TLabel
Left = 8
Top = 235
Width = 84
Height = 13
Caption = 'Payment Form:'
end
object Label4: TLabel
Left = 4
Top = 47
Width = 61
Height = 13
Alignment = taRightJustify
Caption = 'Address 2:'
end
object Label5: TLabel
Left = 4
Top = 60
Width = 61
Height = 13
Alignment = taRightJustify
Caption = 'Address 3:'
end
object Label6: TLabel
Left = 4
Top = 73
Width = 61
Height = 13
Alignment = taRightJustify
Caption = 'Address 4:'
end
object Label7: TLabel
Left = 4
Top = 86
Width = 61
Height = 13
Alignment = taRightJustify
Caption = 'Address 5:'
end
object NameEd: TEdit
Left = 72
Top = 6
Width = 305
Height = 20
Hint = 'Enter Company or User Name'
AutoSize = False
TabOrder = 0
end
object PhoneEd: TEdit
Left = 5
Top = 132
Width = 97
Height = 21
Hint = 'Enter The Contact Phone Number'
TabOrder = 2
end
object EMailEd: TEdit
Left = 107
Top = 132
Width = 121
Height = 21
Hint = 'Enter The Contact E-Mail Address (if any)'
TabOrder = 3
end
object SourceEd: TComboBox
Left = 233
Top = 132
Width = 145
Height = 21
Hint = 'Select The Program Source From The List'
DropDownCount = 14
ItemHeight = 13
Items.Strings = (
'America Online'
'BBS'
'CD-ROM'
'Compuserve'
'Computer Magazine'
'Delphi'
'Friend'
'Genie'
'Internet'
'Microsoft Network (MSN)'
'Prodigy'
'Software Distributor'
'Other')
TabOrder = 4
end
object CommentsEd: TMemo
Left = 8
Top = 168
Width = 369
Height = 57
Hint = 'Enter Your Comments Or Suggestions (if any)'
TabOrder = 5
end
object VisaNoEd: TEdit
Left = 16
Top = 286
Width = 177
Height = 21
Hint = 'Enter VISA Card Number (if Payment Form is VISA)'
TabOrder = 7
end
object ExpiryEd: TEdit
Left = 208
Top = 286
Width = 121
Height = 21
Hint = 'Enter VISA Card Expiration Date (if Payment Form is VISA)'
TabOrder = 8
end
object PaymentEd: TComboBox
Left = 96
Top = 233
Width = 281
Height = 21
Hint = 'Select Payment Form From The List'
ItemHeight = 13
Items.Strings = (
'VISA'
'Money Order (from US or Canadian bank)'
'International Postal Money Order'
'Check (drawn on US or Canadian bank)'
'Cash')
TabOrder = 6
OnChange = PaymentEdChange
end
object AddressEd: TMemo
Left = 72
Top = 32
Width = 305
Height = 83
Hint = 'Enter The Address Where The Software Should Be Sent'
ScrollBars = ssHorizontal
TabOrder = 1
end
end
object VersionRG: TRadioGroup
Left = 424
Top = 37
Width = 145
Height = 57
Hint = '16-bit: Windows 3.1 and 95; 32-bit: Windows 95 and NT'
Caption = 'Program Version:'
Items.Strings = (
'16-bit Version'
'32-bit Version'
'Both Versions')
TabOrder = 2
OnClick = VersionRGClick
end
object LicenseRG: TRadioGroup
Left = 424
Top = 97
Width = 145
Height = 57
Caption = 'License Type:'
Items.Strings = (
'Single-User'
'Multi-User'
'Unlimited')
TabOrder = 3
OnClick = LicenseRGClick
end
object UsersNoEd: TFilterEdit
Left = 424
Top = 171
Width = 105
Height = 22
AutoSize = False
MaxLength = 3
TabOrder = 4
OnChange = UsersNoEdChange
Alignment = taRightJustify
ValidChars = '[0..9]'
end
object Total1Ed: TMemo
Left = 460
Top = 198
Width = 68
Height = 22
Alignment = taRightJustify
Color = clSilver
Lines.Strings = (
'')
ReadOnly = True
TabOrder = 5
WordWrap = False
end
object SHEd: TMemo
Left = 460
Top = 238
Width = 68
Height = 22
Alignment = taRightJustify
Color = clSilver
Lines.Strings = (
'')
ReadOnly = True
TabOrder = 6
WordWrap = False
end
object Total3Ed: TMemo
Left = 460
Top = 296
Width = 68
Height = 22
Hint = 'Total Registration Fee in Canadian dollars'
Alignment = taRightJustify
Color = clSilver
Lines.Strings = (
'')
ReadOnly = True
TabOrder = 8
WordWrap = False
end
object Total2Ed: TMemo
Left = 460
Top = 271
Width = 68
Height = 22
Hint = 'Total Registration Fee in US Dollars'
Alignment = taRightJustify
Color = clSilver
Lines.Strings = (
'')
ReadOnly = True
TabOrder = 7
WordWrap = False
end
object BitBtn2: TBitBtn
Left = 340
Top = 384
Width = 77
Height = 27
Hint = 'Save or Save Encrypted To A File'
Caption = '&Save'
TabOrder = 12
OnClick = BitBtn2Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070
7700333333337777777733333333008088003333333377F73377333333330088
88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000
000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF
FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039
99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999
99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
93337FFFF7737777733300000033333333337777773333333333}
Margin = 2
NumGlyphs = 2
Spacing = -1
IsControl = True
end
object CheckBox1: TCheckBox
Left = 424
Top = 329
Width = 145
Height = 17
Hint = '7% - Goods & Services Tax'
Caption = 'GST - Canadians Only'
TabOrder = 9
Visible = False
OnClick = CheckBox1Click
end
object Total4Ed: TMemo
Left = 460
Top = 350
Width = 68
Height = 22
Hint = 'Total Registration Fee in Canadian Dollars With The GST'
Alignment = taRightJustify
Color = clSilver
Lines.Strings = (
'')
ReadOnly = True
TabOrder = 10
Visible = False
WordWrap = False
end
object CheckBox2: TCheckBox
Left = 424
Top = 18
Width = 145
Height = 17
Hint = 'Upgrade from Older Version'
Caption = 'Upgrade'
TabOrder = 1
OnClick = CheckBox1Click
end
end